DATE >FOODATE
ED FOODATE
S/.*/	MAKDATE	<&>/
W
Q
IF $1X = X GOTO ALL
IF $1 = DD GOTO DD
IF $1 = ALL GOTO ALL
IF $1 = LINK GOTO LINK1
: LOOP

IF $1X = X GOTO LINK
IF $1 = DD GOTO DD1
IF $1 = SUBR GOTO SUBRS
IF $1 = SYSS GOTO SYSS
IF $1 = LEXER GOTO LEXER
IF $1 = HEADR GOTO HEADER
IF $1 = HEADER GOTO HEADER
ECHO	BAD SWITCH
EXIT

: SUBRS
MACRO -XS:4 LGLOB SPARM MACRO DSTUF ATDAT SUBR SUBRCOM EARLY&
ECHO	ASSEMBELING EARLY
GOTO	SLOOP
: SYSS
MACRO -XS:4 LGLOB SPARM MACRO SYSS NOW GCOL FP NOROOM  SYSEND &
ECHO ASSEMBLING SYSS
GOTO 	SLOOP
: HEADER
(MACRO -NS SPARM HEADR FOODATE; MV FOODATE.OBJ HEADR.OBJ)&
ECHO ASSEMBLING HEADER
GOTO	SLOOP
: LEXER
MACRO -XS:4 LGLOB SPARM MACRO PROB7 PROB8 CTABLE PROBEND &
ECHO ASSEMBLING LEXER
GOTO SLOOP
: SLOOP
SHIFT
GOTO LOOP

: ALL
ECHO ABOUT TO ASSEMBLE ALL
(MACRO -NS SPARM HEADR FOODATE; MV FOODATE.OBJ HEADR.OBJ)&
MACRO -XS:3 LGLOB SPARM MACRO  DSTUF ATDAT SUBR   SUBRCOM EARLY&
MACRO -XS:3  LGLOB SPARM MACRO SYSS GCOL NOW FP NOROOM  SYSEND&
MACRO  -XS:2 LGLOB SPARM MACRO PROB7 PROB8 CTABLE PROBEND&


: LINK
WAIT
ECHO ASSEMBLIES DONE:: ABOUT TO LINK

: LINK1
LINKR    -LS    SYSEND HEADR       PROBEND EARLY
ECHO LINK DONE-- ABOUT TO RENAME
MV EARLY.OUT ../L1100
MV EARLY.MAP L1100.MAP
RM -F FOODATE
ECHO ALL DONE -- ../L1100 AND L1100.MAP PRODUCED
EXIT


: DD
ECHO DEBUG VERSION TO BE MADE!!!
SHIFT
IF $1X = X GOTO DALL
IF $1 = ALL GOTO DALL
IF $1 = LINK GOTO DLINK1
GOTO DLOOP
: DD1
ECHO DEBUG VERSION BEING MADE
: DLOOP

IF $1X = X GOTO DLINK
IF $1 = SUBR GOTO DSUBRS
IF $1 = SYSS GOTO DSYSS
IF $1 = LEXER GOTO DLEXER
IF $1 = HEADR GOTO DHEADER
IF $1 = HEADER GOTO DHEADER
ECHO	BAD SWITCH
EXIT

: DSUBRS
MACRO -XS:4 LGLOB SPARM MACRO DSTUF ATDAT SUBR SUBRCOM EARLY&
ECHO	ASSEMBELING EARLY
GOTO	DSLOOP
: DSYSS
MACRO -XS:4 LGLOB SPARM MACRO SYSS NOW GCOL FP  SYSEND &
ECHO ASSEMBLING SYSS
GOTO 	DSLOOP
: DHEADER
(MACRO -NS SPARM HEADR FOODATE; MV FOODATE.OBJ HEADR.OBJ)&
ECHO ASSEMBLING HEADER
GOTO	DSLOOP
: DLEXER
MACRO -XS:4 LGLOB SPARM MACRO PROB7 PROB8 CTABLE PROBEND &
ECHO ASSEMBLING LEXER
GOTO DSLOOP
: DSLOOP
SHIFT
GOTO DLOOP

: DALL
ECHO ABOUT TO ASSEMBLE ALL
(MACRO -NS SPARM HEADR FOODATE; MV FOODATE.OBJ HEADR.OBJ)&
MACRO -XS:3 LGLOB SPARM MACRO  DSTUF ATDAT SUBR   SUBRCOM EARLY&
MACRO -XS:3  LGLOB SPARM MACRO SYSS GCOL NOW FP  SYSEND&
MACRO  -XS:2 LGLOB SPARM MACRO PROB7 PROB8 CTABLE PROBEND&


: DLINK
WAIT
ECHO ASSEMBLIES DONE:: ABOUT TO LINK

: DLINK1
MACRO FILLER
LINKR -DD     -LS    SYSEND HEADR       PROBEND FILLER  EARLY
ECHO LINK DONE-- ABOUT TO RENAME
MV EARLY.OUT ../L110
MV EARLY.MAP L110.MAP
RM FOODATE
ECHO ALL DONE -- ../L110 AND L110.MAP PRODUCED